#!/usr/bin/env perl
use App::gist;
@ARGV = $0;
App::gist->run;

##</code><code>##

@ARGV = ('-u', 412345, $0);  # or whatever identifier