13 

    13 

    14 @goto invoke

    14 @goto invoke

    15 

    15 

    16 #!perl

    16 #!perl

    17 

    17 

    19 use FindBin;		# for FindBin::Bin

    18 use FindBin;		# for FindBin::Bin

    20 use Getopt::Long;

    19 use Getopt::Long;

    21 use Cwd;

    20 use Cwd;

    22 

    21 

    23 $_ = cwd;

    22 $_ = cwd;