#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
use Pod::Usage;

my $CVSVERSION = '$Revision: 1.1 $';

getopts("hv", \my %opts);
pod2usage() unless @ARGV;

`chmod +x $_` for @ARGV;

__END__

=head1 NAME

    cx - chmod +x

=head1 DOWNLOAD

_SRC_HERE_

=head1 SYNOPSIS

    cx file ...

=head1 DESCRIPTION

Just a shortcut for C<chmod +x>.

=head1 LEGALESE

Copyright 2005 by Mike Schilli, 
all rights reserved. This program is free 
software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2005, Mike Schilli <cpan@perlmeister.com>