$ftprput ( ParseSub => \&get_list,
           DirCommand => 'cmd.exe /C dir /b' );

# or this -

$ftprput ( ParseSub => \&get_list,
           DirCommand => 'dir /b' ); # use current cmd shell