#!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;

chdir '/tmp';
my $path = './root/git/common/crt_del/cert/DEFAULT.pem';

$path = File::Spec->rel2abs ($path)
  unless File::Spec->file_name_is_absolute ($path);
print "$path\n";