#!/usr/bin/perl

use strict;
use warnings;
use English qw( -no_match_vars );

use Getopt::Long;

my $file;
my $file_name = 'delete_me.txt';

GetOptions('file|f' => \$file,
          );

my $greeting = "Hello World!";

format BLAH =
Greeting: @<<<<<<<<<<<<<<<<
$greeting
.

$FORMAT_NAME = "BLAH";

my $fh;

if (defined($file)) {
    open($fh,'>',$file_name) or die "Couldn't open $file_name for writing: $!";
    select($fh);
}

#$FORMAT_NAME = "BLAH";
write();

if (defined($file)) {
    close($fh);
}