file help

[Sayed, Irfan \(Irfan\)]

Hi All,

I did as follows but still not getting output in a file.

plz help

#########/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 = qx`$cmd`; 

print FILE $out; 

print "***********************************************\n\n";

}

regards

irfan.