use LWP::UserAgent;
our $ua = LWP::UserAgent->new;
$ua->max_redirect(10);
my $twitter = ' https://t.co/NqACDPYdD9';
my $tiny = 'https://tinyurl.com/69rmnakp';
expand($twitter);
sub expand {
    my ($short) = @_;
     my $response = $ua->get($short);
    if ($response->is_success) {
            my $long = my $long = my $long = $response->header('refresh');
            $long =~ s/0\;URL\=//;
            return $long;
    }
    else {
        say $response->status_line;
    }    
}