#! /usr/bin/env perl

use v5.36;
use OpenData::ShortNumberInfo;

my $shortnumberinfo =
	OpenData::ShortNumberInfo -> new( number => $ARGV[0] );

say $shortnumberinfo -> name();
