$ cat ./acd.pl
#!/usr/bin/env perl

use strict;
use warnings;

use lib 'lib';

use C1;

my $c1 = C1::->new();

$c1->foo();