use strict; use File::Basename; use lib 'lib'; # or maybe '/home/k_rajesh/perl5lib' chdir dirname $0; #### #!/bin/sh exec '/home/k_rajesh/perl_prog/prog.pl'