#!/usr/bin/env perl

=head1 Usage

alarm number-of-seconds command ..

=cut
use strict;
use warnings;

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