unless ($suppressftp) {
    print "FTP starting...\n";
    my $ftp = Net::FTP->new("ftp.mysite.com", Debug => 0) or die "Cannot connect to ftp.mysite.com: $!";
    $ftp->login("uid",'password') or die "Cannot login ", $ftp->message;
    $ftp->binary;   
    $ftp->cwd("mydir") or die "Cannot change working directory ", $ftp->message;
    $ftp->put("$filename\.php") or die "Can't put $filename\.php ", $ftp->message;
    $ftp->cwd("gfx") or die "Cannot change working directory ", $ftp->message;
    for my $file ('g_f.png','g_m.png','g_p.png','g_r.png','g_t.png','series_1.png','series_2.png') {
	print "...writing $file\n";
	$ftp->put("gfx/$file") or die "Can't put gfx/$date$file ", $ftp->message;
    }
    $ftp->quit;
}