#!/usr/bin/perl

&send_data;

sub send_data{
$|=1;
open(FIFO, "> my-pipe") or die $!;
print "What's your age?\n";
$input = <STDIN>;
chomp $input;
print FIFO "$input\n";
close(FIFO);
}