view release on metacpan or  search on metacpan

eg/google-drive-upsync  view on Meta::CPAN

use Sysadm::Install qw(:all);
use Net::Google::Drive::Simple;
use Log::Log4perl qw(:easy);
use File::Basename;
use Getopt::Std;
use Pod::Usage;

getopts( "hvnc", \my %opts );
pod2usage() if $opts{h};

my ( $local_dir, $gd_dir ) = @ARGV;

if ( !defined $gd_dir ) {
    pod2usage("No Google Drive dir given");
}

if ( !-d $local_dir ) {
    pod2usage("$local_dir not a directory");
}

if ( $opts{c} ) {