#!/usr/bin/perl

use strict;

require "lib.pl";

my $global_variable1='a';
my $global_variable2='b';
my $global_variable3='c';

switch(&subroutine1){
    case 0: &subroutine2;
    case 1: &subroutine3;
    case 2: &subroutine4;
}