#!/usr/bin/env perl

# 	$Id: perl-skeleton.pl,v 1.3 2017/07/16 20:35:29 karl Exp karl $

use strict;
use warnings;
use Path::Tiny;

my $file = shift || q(./hello_world.pl);

die qq($file already exists!) if -e $file;

my $mode = q(u+rwx);

path($file)->touch->chmod($mode);

my $emacs    = q(/usr/bin/emacs);
my $skeleton = q(perl-skeleton);
my $command  = qq($emacs $file -f $skeleton -f 'save-buffer');

exec $command;

__END__