#!/usr/bin/perl
use strict;
my $param0 = $ARGV[0];
my $line;

print "\nFirst Arguement is : $param0";

foreach $line (<>) {
...
}