Help for this page
my $file = $filename; # can't remember why I do this, always +have $file =~ s!^.*(\\|\/)!!; # something about cleaning stuff up
my $file = $filename; $file =~ s![\\/]$!!;