Select Code to Download

  use Test::More tests => 5;

  package sample;
  our $value = 0;
...

  sub sub1 () {$value + 1}
  1;

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

  print sub1() , "\n";