file help

[Sayed, Irfan \(Irfan\)]

Hi All,
 
Following is the code which i am executing but i am not getting the
output of command my $out = system($cmd); into the file.
 
Plz help.
 
Regards
Irfan.
 
 
#########/usr/atria/bin/Perl -w
 
use strict;
use warnings;
my $CT = "/usr/atria/bin/cleartool";
my @vob_list = `$CT lsvob -s`;
 
my $fname  = "/tmp/vob_trigger";
open FILE,">>",$fname or die $!;
 
foreach (@vob_list)
{
print "Following are the triggers applied for $_ VOB\n\n";
my $cmd = "$CT lstype -kind trtype -invob $_";
my $out = system($cmd);
print FILE $out;
print "***********************************************\n\n";
}