#! /usr/bin/perl -w

use strict;

# Just to test, pass in 1 or 0 from the shell
sub some_stuff { $ARGV[0]; }

sub some_more_stuff {
   print "Got to some_more_stuff()\n";
}

if(1) {
   &some_stuff() && &some_more_stuff();
}