Can't use string ("123.xml") as a SCALAR ref while "strict refs"
 in use at C:\Work\foo.PL line 357.

##</code><code>##

   # Note: strFileA = C:\foo\a\b\c\123.xml

    my @aryFile = split (/\//, $strFileA);
    my $intSize = @aryFile;
    $strFileB= \$aryFile[$intSize-1];


##</code><code>##

05/12 13:55:10  [DBUG] performing FTP of C:/Work/ftp/123.xml...

##</code><code>##

    $ftp->put($strFileA, $strFileB)
            or die "FTP: Couldn't put $strFileB.";

##</code><code>##

(000025) 5/12/2003 2:04:21 PM - perlmonk (123.45.67.186) > STOR SCALAR(0x1df8cb0)
(000025) 5/12/2003 2:04:21 PM - perlmonk (123.45.67.186) > asked to upload 'SCALAR(0x1df8cb0)' in 'C:\Temp\' --> Access allowed.
(000025) 5/12/2003 2:04:21 PM - perlmonk (123.45.67.186) > 150 Opening data connection for SCALAR(0x1df8cb0).
(000025) 5/12/2003 2:04:21 PM - perlmonk (123.45.67.186) > started uploading 'SCALAR(0x1df8cb0)' in 'C:\Temp\'.
(000025) 5/12/2003 2:04:21 PM - perlmonk (123.45.67.186) > 226 File received ok.
(000025) 5/12/2003 2:04:21 PM - perlmonk (123.45.67.186) > finished uploading 'SCALAR(0x1df8cb0)' in 'C:\Temp\' -  (00:00:01 - 8.345 KB - 8.345 KBytes/s).

##</code><code>##

\$aryFile[$intSize-1];