Command Line

• Program to shorten URLs from the command line: reallyshort 'http://www.google.com/search?q=shorten+urls'

• 01 #!/usr/bin/perl -wT 02 use strict; 03 use ReallyShort; 04 my $long_url = shift; 05 my $reallyshort = ReallyShort->create({ long_url => $long_url }); 06 my $link_id = $reallyshort->link_id; 07 my $short_url = "http://reallyshort.com/$link_id"; 08 print "ReallyShort URL is: $short_url\n";