#!/usr/bin/perl


dofistcritical() or dobackupcritical() or dofailed();


sub dofistcritical {if (int rand 5)
	{print "hooray it worked first time!\n"}
	else {return 0}}

sub dobackupcritical {if (int rand 5)
	{print "First time failed but luckily the backup worked...phew\n"}
	else {return 0}}

sub dofailed {if (int rand 5)
	{print "Main failed. Backup Failed. You have 3 minutes to reach a safe distance\n"}
	else {return 0}}