#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
my @patterns = ("*.*");
my $cmd;
my $uid = "something";
my $foldername;
foreach $ftype (@ftype) {
   $cmd = "/usr/bin/ssh -q -l $uid $h 'for f in `ls $foldername/$ftype 2>/dev/null`;  do dos2unix \$f  ; done'";
   system($cmd); 
}