CGI Per på Apache If else

Jeg køre det her på min Debian Linux under Apache 1.3 men jeg skal have den til at hente eller slette ud fra status
<Perl>
use DBI;

# Declare and initialize variables
$host = 'localhost';
$db = 'xxx';
$db_user = 'xxx';
$db_password = 'BooxiKohito';
#!/usr/bin/perl
# Connect to the requested server
$dbh = DBI->connect("dbi:mysql:$db:$host", "$db_user", "$db_password");
$sth = $dbh->prepare("SELECT ServerName, DocumentRoot, homedir, ServerAdmin,  password, status FROM ezusermanager ORDER BY ServerName ASC");
$sth->execute();
while (($ServerName, $DocumentRoot, $homedir) = $sth->fetchrow_array()) {
system("/home/vpopmail/bin/vadddomain $ServerName $password");
use Fcntl; #The Module

sysopen (HTML, "/etc/webalizer/$ServerName.conf", O_RDWR|O_EXCL|O_CREAT, 0755);
printf HTML "HostName $ServerName\n";
printf HTML "OutputDir $homedir/stats\n";
printf HTML "LogFile $homedir/logs/access.log";
close (HTML);
push @{$VirtualHost{'*:80'}}, {
ServerName => "$ServerName",
ServerAlias => "www.$ServerName *.$ServerName",
ServerAdmin => "$ServerAdmin",
DocumentRoot => "$DocumentRoot",
ErrorLog => "$homedir/logs/error.log",
CustomLog => ["$homedir/logs/access.log", "combined"],
Alias => "/stats $homedir/stats",

};
push @{$VirtualHost{'*:443'}}, {
ServerName => "$ServerName",
ServerAlias => "www.$ServerName *.$ServerName",
ServerAdmin => "$ServerAdmin",
DocumentRoot => "$DocumentRoot",
Alias => "/stats $homedir/stats",
};
}
</Perl>

Jeg skulle gerene bruge If Else

eks som jeg har prøvet er

if ($status =~ /1/)
  {
system("status status1");
  }
elsif ($status =~ /2/)
{
system("mkdir status2");
  }
elsif ($status =~ /3/)
{
system("mkdir status3");
  }
else
  {
system("mkdir status0");
  }