#!/usr/bin/perl
use warnings;
use strict;

my $pwd = qx{./CA.pl};
print "$pwd\n";