error in simulating an ftp client in perl

[aryan98876]

i am using array to store a command given at run time by user... and execute it.....but after a connection is made to any ftp sites only 'ls' or 'dir' commands work....and if i wish to change directory or get any file or put file.example
get("123.mp3")
put("abc.txt")
cd user
etc or any commands that has space in between
then it gives error.wat i cn do to get or put files ...

#!/usr/bin/perl
 
use Net::FTP;
 
        print("\nHost\/IP: ");
        $host = <STDIN>;
        chomp ($host);
 
        print("\nUsername: ");
        $username = <STDIN>;
        chomp ($username);
    print "Password: ";
    chop ($password = <STDIN>);
    `stty echo`;
    print "\n";
 
 print("Connecting to $host...\n");
 my $ftp = Net::FTP->new($host) or die "Couldn't connect to $host\n";
 print("Connected!\n");
 print("\nFTP>");
 
 $ftp->login($username, $password)
 or die "Could not log in .\n";
 
 rep:
 
 $command = <STDIN>;
 
 chomp ($command);
 
 unless ("$command" eq "bye") {      
 
 
                  @listing = $ftp->$command;
 
                  for($i=0;$i<@listing;$i++) { print "$listing[$i]\n"; }
 
                  print("FTP>");
 
                  goto rep;
 
                               }