Select Code to Download

use File::Basename;
use Cwd 'abs_path';
my $curr_dir = dirname(abs_path dirname($0)) . '/';