my $filename = $ARGV[0];
my $oldname = $ARVG[2];
my $newname = $ARGV[1];