use FindBin;
use File::Spec::Functions;

my $ttf = file( $FindBin::RealBin, 'res', 'verdana.ttf' );