perl -MMath::BigInt -E'say Math::BigInt->new(400)->badd(2)'

##</code><code>##

[tai@miranda (pts/2) ~]$ cat `which prove` | head -n 13
#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;
#!/usr/bin/perl -w

use strict;
use App::Prove;

my $app = App::Prove->new;
$app->process_args(@ARGV);
exit( $app->run ? 0 : 1 );

__END__