Help for this page
#!perl -w use strict; ... print "\nAfter: \n\n"; printf ($opt_F, 'foo','bar');
Before: foo:\tbar\n%s:\t%s\n After: foo: bar