passing parameters to Net::FTP

[mike]

hi
i create a subroutine


sub ftpget {
$filetype = $_[0]
my $ftp = Net::FTP->new("$FTPSERVER");
$ftp->login("$FTPUSER" , "$FTPPASS");
$ftp->cwd("/path");
@listing = $ftp->dir("$filetype") ;
$ftp->quit;
return @listing;
} #end sub


my @list = ftpget("text*") ;
print @list;


I want to get a listing of all files begining with "text" but the
results show otherwise. What is wrong?
thanks