Select Code to Download

option_replacement( "tar=s", sub { system "tar xf $_[1] -C $tmpdir"; "
+$tmpdir/*" } );

use Getopt::Long;
sub option_replacement
...
    @ARGV = @newARGV;
}