#!/usr/bin/perl -w

=head1 Usage

alarm number-of-seconds command ..

=cut
use strict;

$SIG{ALRM} = sub { warn "timeout!\n"; exit 1 };
alarm shift @ARGV;
exit system( @ARGV );
