#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use Clipboard;
use File::Temp 'tempfile';

my $file = File::Temp->new(SUFFIX => '.png', CLEANUP => 1);
my $filename = $file->filename;

system(
    "import",
    (@ARGV && ($ARGV[0] eq '--full') ? (qw(-window root)) : ()),
    $filename,
);

chomp(my $url = `nopaste $filename`);
Clipboard->copy($url);
say $url;