Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# if an argument is given, parse it as the dictionary. if not,
# generate a password.
print @ARGV ? parsedict : genpass;