File opeartions help

[Sayed, Irfan \(Irfan\)]

Hi,
 
I am executing following code. i need to send the output of
system($cmd); command to the file . how do i do that 
 
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 $_";
system($cmd);
print "***********************************************\n\n";
}