#!/usr/bin/perl
        use strict;

  my $file = '';
  my $cmd_file="/tmp/apache_restarter.cmd";

  $file = $1 if $ENV{'QUERY_STRING'} =~ /^([a-z0-9_-]+)$/;

  unless ($file eq ""){
      system("echo \"$file\" >$cmd_file");
  }
        print "Content-Type: text/html\n\n$file";