Select Code to Download

# Grab the current directory from $0. 
BEGIN
...
  $0 =~ '(.*[\\\/])\w+\.\w+$';
  $curr_dir = $1 || "./";
 }

my $display = &filter($q->param('display')) || '';

sub filter
{
...
  $_[0]=~s/\s+$//;
  $_[0]=~s/\'/\\\'/g;
  $_[0]=~s/<//g;

sub filter {
    my $str=shift;
...
    }
    $str;
}