Select Code to Download

sub trim($)
{
...
    $string =~ s/\s+$//;
    return $string;
}

This is a line.

...


This line is a bit more of a loner, because hes 2 lines away.

This is a line.
:O and this is another line.
This line is a bit more of a loner, because hes 2 lines away.

opendir(DIR, ".");
for $file (glob("*.shtml"))
...
        print "Processing... ".$file."... Done!\n";
}
close DIR;