my $filename=shift(@ARGV);