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

Main( @ARGV );
exit( 0 );

sub Main {
   my $fb = Foo::Bar(3);
   $fb++;
   print "$fb\n";
}
sub Foo::Bar {
  my( $i , $eeb ) = @_;
  return $eeb  + $i;
}
__END__