#!/usr/bin/perl 

use strict; 
use CGI::Carp qw(fatalsToBrowser); 

my $Verzeichnis = "/home/wwwubl/public_html/LeagueSite/"; 
my $zipfile = $Verzeichnis . "_ubl.zip"; 

if (-e $zipfile) { 
$r = system("unzip -o -q -C $zipfile -d $Verzeichnis"); 
if ($r==0) { 
print "Success!\n"; 
unlink($zipfile); 
} 
else { 
print "Error " . $r . "\n"; 
} 
}