#!/usr/bin/perl
use warnings;
use strict;
our $path1;
do './paths.pl'; # you have to use ./, since '.' is no longer in @INC

print $path1."\n";