use GD::Simple;
use strict;

my $gd = GD::Simple -> new(1100,1100);

    $gd -> bgcolor("transparent");
    $gd -> fgcolor(undef);
    $gd -> rectangle(0,0,1100,1100);
    $gd -> bgcolor("white");
    $gd -> fgcolor("black");
    $gd -> line(50, 1050, 1050, 1050, "black");
    $gd -> line(50, 1050, 50, 50, "black");