Upload Form

##

#!/usr/bin/perl -w

# I am not using taint yet, but when I get
# ready to deploy this, it will be there

use strict;
use CGI;

my $Q=new CGI;
my $File=$Q->param('file');

# I know what I am sending right now
# so when I turn on tainting, the below
# regex will DEFINITELY be changing

if($File=~/\/root\/text/){
  print $Q->header;
  print $Q->start_html('File is Correct');
  print $Q->h1("File is $File");
  print $Q->end_html;
}else{
  print $Q->header;
  print $Q->start_html('File is Incorrect');
  print $Q->h1("File is $File");
  print $Q->end_html;
}