#!/usr/bin/perl
require 'getopt.pl';
require 'stat.pl';
%days = (
    'Sun', 1,
    'Mon', 2,
    'Tue', 3,
    'Wed', 4,
    'Thu', 5,
    'Fri', 6,
    'Sat', 7);

dump QUICKSTART if $ARGV[0] eq '-d';

QUICKSTART:
&Getopt('f');
# Your code here.
