#!/usr/bin/perl -w
use strict;

my $filename= shift @ARGV;
....

##</code><code>##

#!/usr/bin/perl -w
use strict;

while( <>)
  { # reads from my_file
    ...
  }