#!/usr/bin/env perl
#
# gulp - swallow the input whole, then put it out
#
# $Id$

# This can be useful to inject into pipes after a utility
# that doesn't like its output pipe to be closed prematurely

use strict;
use warnings;

undef $/;

print <>