package Pronto::Link; use strict; sub load_url { my ($widget, $file) = @_; local *FILE; open(FILE, $file); $widget->insert(undef, undef, undef, join("", )); close(FILE); } 1;