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

use CGI   qw();
use Shell qw(echo);

open my $read, '<', '/tmp/text' or die "/tmp/text: $!\n";
# ACHTUNG: Augen auf!
chomp ( my $line = <$read> );
close $read;

echo "$line >> /tmp/output";