Select Code to Download

#!/usr/bin/perl -w
#exec /usr/bin/perl /research-sar/sarexec.pl
use strict;

#!/usr/bin/perl

use strict;
use warnings;

if($ARGV[0] eq 'start')
{
...
  
  exit;
 }

my %action=(start => \&start, stop => \&stop);
my $todo=shift || '';
...
    my ($file_param,$file_location,$interval)=@ARGV;
    # ...
}

  open(FH,"> fileloc") or die"cant open the file";

open my $fh, '>', 'fileloc' or die "Can't open `fileloc': $!\n";

my $pid =  fork();