getopt
'n|name=s' => \$my_name,
'd|day=i' => \$day,
'1|first-task' => sub { $mode = '1' },
'2|second-task' => sub { $mode = '2' },
'r|relative' => sub { $mode = 'r' },
getopt
'n|name=s' => \$my_name,
'd|day=i' => \$day,
'1|first-task' => sub { $mode = '1' },
'2|second-task' => sub { $mode = '2' },
'r|relative' => sub { $mode = 'r' },