Shell Programming and Scripting

sub checkJob
{
system('clear');
print "The current Job Status is:\n\n";
      `./scriptlist.ksh 2`;
      open OUTPUT, "./output";
      undef $/;
      $_ = <OUTPUT>;
      ($var) = m/^(INTE.*PM)$/sm;
      print "$var\n\n";
      close OUTPUT;
      pressEnter();
    }
sub pressEnter
{
print "Press Return to continue\n\n";
      $dummy = <>;
      mainMenu();
}

$var = <OUTPUT>;
$var =~ m/^(INTE.*PM)$/sm;

sub checkJob
{
    system('clear');
    print "The current Job Status is:\n\n";
    `./scriptlist.ksh 2`;
    open OUTPUT, "./output";
    undef $/;
    $var = <OUTPUT>;
    if ($var =~ m/^(INTE.*PM)$/sm) {
        print "$var\n\n";
    }
    close OUTPUT;
    pressEnter();
}

sub pressEnter
{
    while (1) {
        print "Enter: ";
        $x = <STDIN>;

        if ($x eq "\n") {
            mainMenu();
            last;
        }
    }
}

sub mainMenu
{
system('clear');
print <<MENU_END;
******************SYSCON MENU******************
    [1].................Check Backlog
    [2].................Check Job Status
    [Q].................Quit
MENU_END
print "\n";
print "What do you want to do?: ";
  my$decision;
  chomp($decision = <>);
if ($decision !~ /^q/i) {
    $decision == 1 && do { checkIso(); };
    $decision == 2 && do { checkJob(); };
    }
}

print <<MENU_END;

MENU_END