Shell Programming and Scripting

OS=`uname -s` 

if [[ $OS = "Linux" ]]; then 
my $HOME='/home/mqm' 
else 
my $HOME='/export/home/mqm' 
fi

#!/usr/bin/perl

use strict;
use warnings;

my $os = $^O;
my $HOME = "";

if($os eq "Linux")
{
 $HOME = "/home/mqm";
}
else
{
 $HOME = "/export/home/mqm";
}

find: /export/home/mqm/backup: No such file or directory

#!/usr/bin/perl -w
use Shell qw(date);

use strict;

my $version = '0.4';
my (
        $BUDir,
        $ext,
        $current_date,
        $file_name,
  $mq_bin_dir,                  # directory where mq binaries are located
  $mq_tools_dir,                # directory where mq tools are located
  $mq_save_auths_dir,                   # directory to save files
        $mq_save_qmgr_dir,
        $qmgr_list,                             # hashref to qmgr info - returned from get_qmgr_list()
        $qmgr_name,                             # name of queue mgr - used in loop
        @bin_dirs,                              # list of places to look for mq binaries
);
#my $HOME=$ENV{'HOME'};
#my $HOME='/home/mqm';
my $os = $^O;
my $HOME = "";

if($os eq "Linux")
{
$HOME = "/home/mqm";
}
else
{
$HOME = "/export/home/mqm";
}

if($os eq "linux")