何故か自宅サーバーがFTPで繋がらないことが多く、でもちょっとした事情によりファイルのアップロードをしたいときに困ったので。 #!/usr/bin/perl -T use strict; use warnings; use CGI; use File::Basename; use HTTP::Date; my $script_name = basename …