#!/usr/bin/perl
use strict;
use warnings;
use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine->new('test');

#binmode STDOUT;

my $pid = fork();
if (not defined $pid) {
    die "fork failed!";
} elsif ($pid == 0) {
    #child
    sleep 2;
#    print "ftp://who.cares/what/my/url.is\cJ";
    my $output =  "ftp://who.cares/what/my/url.is\cJ";
    syswrite STDOUT, "ftp://who.cares/what/my/url.is\n", length($output);
    exit(0);
} else {
    #parent
    my $lookup_url = $term->get_reply(
        prompt => q{What is your application's url?},
        allow => qr!(ftp|http)://!,
    );
    waitpid($pid,0);
}