my $file = $argv[0];
open (MYFILE, "$argv[0]");
while(<MYFILE){
.....