Subroutine Perl

sub my_subroutine {
    print "In a subroutine.\n";
}
print "Before subroutine.\n";
my_subroutine();
print "After subroutine.\n";