Shell Programming and Scripting

 
my $myDir = myDir_path;
my $file;
 
sub convert(){
 system ("./$myConvertScript >> $myDir/$file_CONV" );
 $file2 = $myDir/$file_CONV;
}
 
sub addDB(){
 open(CONF, $config)
    or die "Cannot Open $config for reading. ";
   while(<CONF>){
    chomp();
      ($id, $name, $type, $add) = split("\t");
  system("/myPerlDB_script.pl --db_file $file2");
   } 
 close(CONF);
}

#! /usr/bin/perl -w
use strict;

my $text = "HelloWorld";
print "I am now going to call a sub-routine\n";

i_m_sub_routine ($text);

sub i_m_sub_routine {
    my $str = shift;
    print "I am in sub-routine now\n";
    print "$str\n";
}

print "I came out of sub-routine\n";

$ ./test.pl
I am now going to call a sub-routine
I am in sub-routine now
HelloWorld
I came out of sub-routine