require File::Spec;
my $devnull = File::Spec->devnull();
my $cmd = `cleartool ls -l $fname 2>$devnull`;