#!/usr/local/bin/perl
open (FILE1, "file1") ||
die ("Can't open file1\n");
open (FILE2, "file2") ||
die ("Can't open file2\n");
$input = ;
$input = ;
print ("line number is $.\n");
$input = ;
print ("line number is $.\n");
$input = ;
print ("line number is $.\n");