# # hahaha ? i wrote an irssi script.. # use strict; use vars qw ( $VERSION %IRSSI $random_caps ) ; use subs qw ( rand_cap) ; [...]
#!/usr/bin/env perl use Time: : Local; unless ( $ARGV [ 0 ] ) { print "Usage: merge_and_sort.pl <file1> <file2> <file3> <dst_file>\n" ; [...]