Collections of perl utils and one-liners I use this for personal reference (Yep, TDAH)

code_sample.pl

#Open File
$input_fh, "<users.txt" or die "Can't open the file" ; close $input_fh ;

# Insert lines into array
while ( $line = <$input_fh> ) { push @array,$line ; }

#Parsing CSV 
foreach(@array) {
chomp $_ ;
($user, $password) = split /,/, $_ ;
system(zmprov ca $user $password) ; }


#Timer:
perl -e '$i = 5 ; while( $i-- ) { sleep(1)}; done '

#Print if match:
foreach my $field (@array) { if ( $field =~ /mail/ ) { $mail = $field } ;
if ( $field =~ /modifyTimestamp/ ) { $date_string = $field } }

#Print timestamp
perl -e 'print scalar localtime(1355166593);'