source: trunk/tp-perl/getoptlong.pl @ 340

#!/bin/env perl -W

use strict;
use Getopt::Long;

GetOptions(
    t     => \my $test,
    'p=s' => \my $pref,
) or die 'wrong option';

$pref ||= '';

if (!$test) {
    print $pref . "\n";
}