$ftp->site("PRI=","SEC=", "TRacks", "RECfm=", "BLocksize=", "Unit=") or die "Cannot set SITE command. $!"; $ftp->site("trail") or die "Cannot issue SITE 'trail' command. $!"; $ftp->put("","\'Data.Set.Name(+1)\'") or die "Cannot put to Data.Set.Name. $!";