{ perl }:

''
  #!${perl}/bin/perl

  use strict;
  use warnings;

  use HTTP::Tiny;
  if ($^O eq "openbsd") {
  	require OpenBSD::Pledge;
  	require OpenBSD::Unveil;

  	OpenBSD::Unveil::unveil("/", "") or die;
  	OpenBSD::Pledge::pledge(qw( stdio dns inet rpath )) or die;
  }

  my $http = HTTP::Tiny->new();

  sub slurp {
  	my ($fh) = @_;
  	local $/;
  	<$fh>;
  }

  sub sprunge {
  	my ($input) = @_;
  	my $url = "http://sprunge.us";
  	my $form = [ sprunge => $input ];
  	my $resp = $http->post_form($url, $form)
  		or die "could not POST: $!";
  	$resp->{content};
  }

  my $input = slurp('STDIN');
  my $url = sprunge($input);
  print $url;
''