$|=1; print "1..1\n"; # trick Gimp into using the Gimp::Lib-interface. BEGIN { @ARGV = '-gimp' } use Gimp qw(:consts); print "ok 1\n";