my $os = eval "\\&FTP::Session::${^O}->new";
my %constor = ( $^O => $os );