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

##</code><code>##

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

##</code><code>##

sub filter
{

if($_[0]){

  $_[0]=~s/\s+$//;
  $_[0]=~s/\'/\\\'/g;
  $_[0]=~s/<//g;

##</code><code>##

sub filter {
    my $str=shift;
    for ($str) {
        return '' unless $_;
        s/\s+$//;
        s/'/\\'/g;
        tr{<>;()\"\'?}{}d;
        s/<script//g;
    }
    $str;
}