#!/usr/bin/perl use strict; use Parser; use Data::Dumper; my $address = shift; my $parsed = Parser->parse_address($address); print Dumper($parsed);