my $input_file = shift;
        binmode STDIN;
        open(OUT, ">" . $input_file);
        binmode OUT;
        foreach my $line (<STDIN>){
                print OUT $line;
        }
        close OUT;