5 use Exporter qw(import);
6 our @EXPORT_OK = qw(red grey white yellow day year);
11 sub red { colored(['bright_red on_black'], @_); }
12 sub white { colored(['bright_white on_black'], @_); }
13 sub grey { colored(['white on_black'], @_); }
14 sub yellow { colored(['bright_yellow on_black'], @_); }
17 my ($num) = $0 =~ /.*\D(\d+)/;
22 my ($num) = $Bin =~ /.*(\d{4})/;