Can't modify subroutine entry in scalar assignment at C:\Perl\lib/POSIX.pm line
3, near ");"
BEGIN not safe after errors--compilation aborted at C:\Perl\lib/POSIX.pm line 5. 
BEGIN failed--compilation aborted at ftp_Invent.pl line 11.

##</code><code>##


#!/usr/local/bin/perl -w

use strict;
use POSIX qw(strftime);

my $now_string;
$now_string = strftime '%Y%m%d.%H%M%S', localtime;
my $now_string2 = strftime '%Y%m%d%H%M%S', localtime;