use URI::file qw( );

my $url = URI::file->new_abs("webpage.html");

##</code><code>##

use Cwd       qw( realpath );
use URI::file qw( );

my $url = URI::file->new("webpage.html")->abs(realpath($0));