#!/usr/bin/perl

# Reading from a file

$filename = shift(@ARGV); # or shift;

open(FILE, "< $filename") || die "Can't open $filename: $!";

while(<FILE>)
{

  print $_; # or just print;

}

close(FILE);