#!/usr/local/bin/perl
use Getopt::Std;
our ($opt_r);
getopts('r:');

my $recover             = uc $opt_r;
$recover and goto ($recover);

my $rec_file_name       = 'start.rec';

FIRST:          first();
SECOND:         second();
THIRD:          third();
CleanUp();


# do the first task
sub first
{
        # some other stuff may happen here, 
        #  so we'll go ahead and write the recovery info
        write_recovery_file('first');
        print STDERR "This is first\n";
        sleep(1);
#       die "died in first";
}

sub second
{
        write_recovery_file('second');
        print STDERR "This is second\n";
        sleep(1);
#       die "died in second";
}

sub third
{
        write_recovery_file('third');
        print STDERR "This is third\n";
        sleep(1);
#       die "died in third";
}


sub CleanUp
{
        `rm start.rec`;
        print "Recovery file deleted\n" unless ($?);
}

sub write_recovery_file
{
        my $str = shift;
        open RECOVER, ">$rec_file_name";
        print RECOVER "$0 -r$str\n";
        close RECOVER;
}