Select Code to Download

foreach $key (keys %argument)
{
        $argument{$key} =~ s/\\\\/\\/g;
}

#!/usr/bin/perl

use strict;
...

EOT
}