Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  my ($domain, $expire_days) = split(/ /, $line);
  print "Domain '$domain' is expiring in $expire_days days.\n";
}

# This is the data file for the expire.pl script. The domain name shou
+ld
# exclude www or other subdomain values. A reminder email will be sent
+ on each
...

perlmonks.org 30 15 7
mywebsite.com 45 30 15 7