$basedir="results";

my $tempname=$basedir . '/output/file.txt';
open (OUTHANDLE, ">$tempname") or die;

open (OUTHANDLE, ">$basedir . /output/file.txt") or die ;