use Net::Telnet ();
use warnings;

my $host ='somehost';

my $username ='user';

my $passwd = 'password';

#my $prompt = 'prompt';

my $cmd = '/  flow export fcap "src net a.b.c.d "  recent';

# my $cmd ='ls';

    	$telnet = Net::Telnet ->new (Timeout => 20, Host=> $host, Prompt => "/$prompt/");
    	$telnet ->login(Name =>$username, Password => $passwd);
    	@lines = $telnet ->cmd($cmd);
    	$telnet -> close; 
	pop @lines;
   	print @lines;