;  $Id: perl-skeleton.el,v 1.2 2017/07/14 17:13:34 karl Exp karl $

(define-skeleton perl-skeleton
  "...soft like butter, fits like a glove...."
  (nil)
  "#!/usr/bin/env perl\n\nuse strict;\nuse warnings;\n\n\n__END__\n")

(global-set-key [f6] 'perl-skeleton)

##</code><code>##

M-x load-file
Load file: ~/path/to/perl-skeleton.el

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;


__END__

##</code><code>##

#!/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__