File Perl

$true_file = readlink($file);