$ cat LinuxCommandsPaths.pm
package LinuxCommandsPaths ;

use strict ;
require Exporter;
my @ISA = qw(Exporter);

my @EXPORT_OK = qw(
                        $cat
                        $cleartool
                        $chkconfig
                ) ;

our $cat = '/bin/cat' ;
our $cleartool = '/usr/atria/bin/cleartool' ;
our $chkconfig = '/sbin/chkconfig' ;

1;

##</code><code>##

 
#!/usr/bin/perl -iw
#

use LinuxCommandsPaths qw(:DEFAULT $cat $cleartool $chkconfig) ;

my $cat=$LinuxCommandsPaths::cat ;

print "\$cat == |$cat|\n";
__END__

##</code><code>##

print "$cat \n" ;

##</code><code>##

my $cat=$LinuxCommandsPaths::cat ;