Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use Devel::CheckOS qw(os_is);
...
    close $INFO;
}
__END__

$ perl writeCodeLike.960945.pl -u user -p pass -h host -pre=refix -cdt
+o ccddttoo argyargyarg
[
...
  prefix => "refix",
  user   => "user",
}

sub Main {    
...
  user   => "user",
    );
}