Help for this page

Select Code to Download


  1. or download this
    package Calc::Euro;
use strict;
...
sub from_euro     { goto &to_national }
sub from_national { goto &to_euro }
sub clone         { goto &new }
  2. or download this
    #!/usr/bin/perl -w

...

my $foo = Calc::Euro->new(1.5);
print $foo->to_national(2), "\n"; # 3
  3. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$