matt dees mattdees
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package API::WHMCS; | |
| use strict; | |
| use HTTP::Tiny; | |
| use JSON::XS; | |
| use Digest::MD5 ('md5_hex'); | |
| our $VERSION = 0.001; |
mattdees
/ gist:2955290
Created
June 19, 2012 17:01
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| my $input = $ARGV[0]; | |
| if ( !-e $input ) { | |
| die "File not found"; | |
| } | |
| if ( -d $input) { | |
| die "Path is a directory"; | |
| } |
NewerOlder