use Glib;
use Data::Dumper;

eval { Glib::filename_from_uri 'foo://bar' };
print "\$@ is $ \n";
print Dumper($@);