system ("/var/www/perl/cgi_classification.pl", $outfile, $input_sequence, $name);

##</code><code>##

open OUTFILE, ">/var/www/data/$ARGV[0]" or die "cannot....";

##</code><code>##

my $filename = $ARGV[0];
# Use whatever regex suits your needs. this is just an example.
if ($filename =~ /^([\w]+\.[\w]+)$/) { 
  $filename = $1;
  } else {
  # handle the error here
}