my $appfolder;
my $tempfolder;
($appfolder) = $0 =~ m/(.+[\\\/]).+\..+$/i;
$tempfolder = $appfolder."tmp\\";
print $appfolder."\n";
print $tempfolder."\n";
exec($tempfolder."update.exe",$appfolder);