#!/usr/bin/perl -iw # use LinuxCommandsPaths qw(:DEFAULT $cat $cleartool $chkconfig) ; my $cat=$LinuxCommandsPaths::cat ; print "\$cat == |$cat|\n"; __END__