files creating filters

[badrinath chitrala]

Hi

Can sombody hepl me in the below prog
I could not get any  output

please tell me the mistake i hav done and where
also suggest me how to go with this

my $lineno;
my $current =3D "";

while(<>){
if($current ne $ARGV){
    $current =3D $ARGV;
print "\n\t\tFile: $ARGV\n\n";
$lineno=3D1;
}
print $lineno++;
print ": $_";
}
regards

Badrinath