Select Code to Download

my $site_file='<c:\sitefile.txt';
open data, $site_file || die "Horrible death";
...
if($Session->{'usrSystem'})=~/$line/g;
$Response->Write("Found a match! Hooray");
}

 
 sub tSupport
  {   
...
    }
    return $str;   
  }