You can use strace to see what fdisk does under the hood and then reimplement it in Perl

...or just read fdisk source code!