#! /usr/bin/perl 

use strict;
use warnings;
use Getopt::Long;

my $time;

GetOptions("-t=s" => \$time);

print $time,"\n";