Select Code to Download

#!/usr/bin/perl

...
sub only_new {
    print "<strong><font color=blue>" . shift(@new) . "(</font></stron
+g>\n";
}