#!/usr/bin/perl -w

use Test::More tests => 1;
use ttt qw(get_key);
my ($a,$b,$c) = get_key();
is($a,1);