You can always write that more tidily:
my $source_file = $options{o} || 'as.xcf-dist'; my $config_file = $options{c} || 'config.ini'; my $dest_file = $options{x} || usage();

Another possibility is to use Getopt::Long, which IMHO has a nicer API.


In reply to Re^3: question about getopt by moritz
in thread question about getopt by Sun751

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":