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

#!/bin/env perl -W

use strict;
use Getopt::Std;

getopts('tp:', \my %opts);

$opts{p} ||= '';

if (!$opts{t}) {
    print $opts{p} . "\n";
}