#!/usr/bin/perl -w



use strict;

use Getopt::Std;

use vars qw($opt_F);

getopts('F:');

printf($opt_F, 'foo', 'bar');