Select Code to Download

#!/usr/bin/perl 
use strict;
...
my @distro = $t->cmd(String => "cat /etc/redhat-release",
            cmd_remove_mode => '1');
print "@distro";

$ ./connect.pl
 $ cat /etc/redhat-release
 CentOS release 5 (Final)

my @distro = $t->cmd(String => "cat /etc/redhat-release",
            cmd_remove_mode => '2');