#!/usr/bin/perl $footer_file = "common.txt"; open(FILE,"$footer_file"); while() { print $_; } exit;