use GD;

  my $image = GD::Image->newFromJpeg('d:\cards\test.jpg');
  my $black = $image->colorResolve(0,0,0);
  my ($width,$height) = $image->getBounds();
  $image->rectangle(0,0,($width-1),($height-1),$black);
  binmode FILE;
  open(FILE, ">border1.jpg");
  print FILE $image->jpeg;