gistfile1.txt

diff --git a/gistp b/gistp
index acea51a..454b47e 100755
--- a/gistp
+++ b/gistp
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
 use 5.008001;
@@ -61,7 +61,7 @@ sub post_gist {
     my $mech = WWW::Mechanize->new;
     $mech->get('http://gist.github.com');
     $mech->submit_form(
-        form_number => 1,
+        form_number => 2,
         fields      => $fields,
     );
 

summary
from 'form_number => 1' to 'form_number => 2'