#!/usr/bin/perl
use strict;
use warnings;

sub subroutineWithReturnStatement {
    print shift;
}

subroutineWithReturnStatement("First Sample String as Input\n");

sub subroutineWithNoReturnStatement {
    print shift;
    return;
}

subroutineWithNoReturnStatement("Second Sample String as Input\n");

__DATA__

First Sample String as Input
Second Sample String as Input