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