Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (9 sloc) 188 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use VHS;
my $msg = shift;
die "USAGE: $0 'your tweet'" unless length($msg);
VHS->send_tweet($msg);