Select Code to Download

#! /usr/bin/perl -w

...
{
   printf "%-100s %s\n", $image -> image(), image -> tag();
}