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