use Path::Tiny qw/ path /;
$foo = path( $foo )->realpath;