#! /usr/bin/perl -w
  use strict;
  use sample value => 5;

  print sub1() , "\n";