#!/usr/bin/perl
# use warnings;
# use strict;
do 'paths.pl';

print $path1."\n";