#!/usr/bin/perl
main::(-e:1):   1
DB<1> use GD
DB<2>