#!/usr/bin/perl -w

use strict;

func1();
func2();
func3();

sub func1{
  print "I am the first subroutine\n";
  return 0;
}

sub func2{
  print "I am the second subroutine\n";
  return 0;
}

sub func3{
  print "I am the thrid subroutine\n";
  return 0;
}