use strict;
use warnings;
my $username1 = "anand";
my $username2 = "girish";
my $password1 = "Case@123";
my $password2 = "Seat123#";
my $path = ("\"c:\\Program Files\\SecureFX\\sfxcl\"");

my $server = "gaddwuat02";
 
 @trans_file = ("/Q"." "."c:\\eqsys.txt"." "."sftp://$username:"."$password"."\@"."$server");
 print "@trans_file\n";
 my @trans = system("$path @trans_file");