unlink 'appname_old.exe';
	rename ( 'appname.exe', 'appname_old.exe');
	
	use Win32;
	my $localdir = Win32::GetCwd();
	print "My idea of a local directory: " . $localdir . "\n";
	print "I think I am program: $0 \n";
	
	use Net::FTP;
	my $ftp = Net::FTP->new(
						 "myftpserver.net",
						 Timeout => 30,
						 Debug => 0
						) or warn "Can't connect: $@\n";
	$ftp->login( 'anonymous', 'guest') or die "Couldn't authenticate";
	$ftp->cwd("/pub");
	$ftp->type( "I" );
	$ftp->get('appname.exe');
	$ftp->quit;
	debug( "Quitting, restart programme please." );
	exec("appname.exe");