#!/usr/bin/perl

use lib qw(.);

use common qw(:common :file :functional :system);
use pci_probing::main;

substInFile { s|^(URL=.*?)/?$|$1/lang| } "/tmp/dde";


1;
